home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-06
/
logcopy.zip
/
SETGRAPH.ASM
< prev
next >
Wrap
Assembly Source File
|
1992-08-03
|
2KB
|
98 lines
page 55,132
TITLE SETGRAPH subroutines called by Microsoft Pascal for SETCOPY
SETGRAPH SEGMENT PARA PUBLIC 'CODE'
ASSUME CS:SETGRAPH
PUBLIC GOTOXY
PUBLIC SCROLL_SCREEN_UP
;---------------------------------------------------------------
;
; GOTOXY - Set cursor on screen at passed location
;
; GOTOXY( row : Integer - row and column where
; col : Integer ) - cursor is to be moved
;
; Returned :nothing
;
;---------------------------------------------------------------
; Procedure gotoxy(CONST ROW,COL : Integer);
;---------------------------------------------------------------
GOTOXY PROC FAR
ROWPAR EQU 8 ;row parameter location
COLPAR EQU 6 ;Col parameter location
PUSH BP ;save caller's BP register
MOV BP,SP ;point BP to parameters passed
push ax
push bx
push dx
mov ah,0FH
int 10h ;get active page
MOV DX,[BP+ROWPAR] ;move row to DX
MOV DH,DL ;move DL to DH
MOV AX,[BP+COLPAR] ;move column to CX
MOV DL,AL ;move CL to DL
MOV AH,02 ;Move cursor functor
INT 10H
pop dx
pop bx
pop ax
MOV SP,BP
POP BP ;return to caller
RET 4
GOTOXY ENDP
;-----------------------------------------------------------------------
; Procedure scroll_screen_up( nlines,ulr,ulc,lrr,lrc,ATTR: Integer);
;-----------------------------------------------------------------------
SCROLL_SCREEN_UP PROC FAR
PUSH BP
MOV BP,SP
PUSH AX
PUSH BX
PUSH CX
PUSH DX
MOV AX,[BP+10H]
MOV DX,[BP+08H]
MOV BX,[BP+0AH]
MOV DH,BL
MOV CX,[BP+0CH]
MOV BX,[BP+0EH]
MOV CH,BL
MOV BX,[BP+6H]
MOV BH,BL
MOV BL,0
MOV AH,6
INT 10H
MOV AH,0
POP DX
POP CX
POP BX
POP AX
POP BP
RET 0CH
;[BP+10H] nlines
;[BP+08H] llc
;[BP+0AH] llr
;[BP+0CH] ulc
;[BP+0EH] ulr
;[BP+6H] attr
SCROLL_SCREEN_UP ENDP
SETGRAPH ENDS
END